﻿Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

Namespace SRAGWM
    Public Class Filter

        Dim _WhereClause As String
        Dim _Points()
        Dim _NumPairs As Integer
        Dim _SpatialOperator As Integer

        Property WhereClause() As String
            Get
                Return _WhereClause
            End Get
            Set(ByVal value As String)
                _WhereClause = value
            End Set
        End Property

        Property Points()
            Get
                Return _Points
            End Get
            Set(ByVal value)
                _Points = value
            End Set
        End Property

        Property NumPairs() As Integer
            Get
                Return _NumPairs
            End Get
            Set(ByVal value As Integer)
                _NumPairs = value
            End Set
        End Property
        Property SpatialOperator() As Integer
            Get
                Return _SpatialOperator
            End Get
            Set(ByVal value As Integer)
                _SpatialOperator = value
            End Set
        End Property

        Public Sub New(ByVal pWhereClause As String, ByVal pPnts() As Object, _
                      ByVal pNumPairs As Double, ByVal pSpatialOperator As Integer)

            'ObjMkr.AddElementsByPolygon("", Pnts, NumPairs, SpatialOperator)

            _WhereClause = pWhereClause
            _Points = pPnts
            _NumPairs = pNumPairs
            _SpatialOperator = pSpatialOperator

        End Sub

    End Class
End Namespace
